Sub muestra_aplicacion()
    Dim miAplicacion As Excel.Application
    Set miAplicacion = New Excel.Application
    Debug.Print ("Name (" & miAplicacion.Name & ")")
    Debug.Print ("Impresora (" & miAplicacion.ActivePrinter & ")")
    Set miAplicacion = Nothing
End Sub
